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ABSTRACT 


This program is designed to test the action of long carry chains under the extremely 
tight timing conditions that obtain at the far end of extended memory. In each register from 
10000 to the upper limit of memory, a word of all Is is stored, then incremented using ISZ. 
The result is tested to see whether the carry chain was successfully propagated ■ — the correct 
result in each case is 000000. Provisions are made for error printout and halt, scoping, and 
repetition. 

2. REQUIREMENTS 

2. 1 Equipment 

A PDP-15 with at least 8192 words of memory. 

2.2 Storage 

The program occupies registers 00000-00644. 

The test field extends from 10000 to the top of memory. 

2.3 Preliminary Programs 
None 

3. LOADING PROCEDURE 

The program tape is in absolute binary. 

Place the program tape in the reader. 

Set the Address Switches to 17700. 

Place the BANK MODE Switch on a 1. 

Press I/O RESET, then READ IN. 

4. STARTING PROCEDURE 

4.1 Control Switch Settings 


SW 0 

1: 

0: 

Scope Mode. Repeat the current test cycle. 

Normal mode. Do not repeat cycles. 

SW 1 

1; 

0; 

Do not halt on error. 

Normal mode. Halt on occurrence of an error, after 
printout, if any. 
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SW 2 1: Do not print error data. 

0: Normal mode. Print error data. 

SW 15-17; Number of additional 4K memory banks provided. (Must be 

at least 1 to execute the test.) 


NOTE 

SW 0 has precedence over SW 1; that is, if SW 0 
is set to 1, SW 1 has no effect. Thus, the error 
halt is automatically suppressed while the program 
is operating in scope mode . 

4.2 Operator Action 

a. Set the ADDRESS switches to 0200. 

b. Set the control switches as desired 
(see Section 4.1). 

c. Press Reset, then START. 

5. OPERATING PROCEDURE 

5. 1 Switch Settings 
See Section 4.1. 

5.2 Operator Action 

Normally, the program runs without intervention, until the operator stops it manually. 
When errors occur, there are severa I ways to proceed. Here are some common ones. 

Set the switches as follows: 

J_ _2_ JZ_ 

^ ^ ^ number of additional 4K banks 

(beyond the standard 4K) 

Start the program. At the occurrence of the first error, the data will be printed and the 
program will halt. 

a. Option 1 - To gather more error data, set SW 1 to 1, and press CONT. At the occur- 
rence of each error, the data are printed, and the program continues. When enough information is 
printed, set SW 0 to 0 and the program will halt after the next printout. 
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b , Opt ion 2 - For scoping, set SW 0 and SW 2 to 1 , connect the scope, and 
press CONT (SW I now has no affect). As long as SW 0 is set to 1, the program 
will repeat the current test cycle (that is, using the same memory location), 
regardless of whether the error occurs or not. In this way, an intermittent 
failure can eosiiy be detected on the scope. 

c. Option 3 ~ If, while scoping, you wish to examine the same signal at 
the next error site, strike any signal -generating key on the KSR33 key- 
board, This will cause the program to break out of the repeat loop and 
continue the sequential test until the next error occurs, at which point the 
scope loop resumes. In this way, the operator can step from error to error. 

6. ERRORS 

6.] Er ror Halts and Descript ion 

6.1.1 Not Enough Memory - If the operator forgets to set SW 15-17, the program 

will pririt ~ 

NOT ENOUGH MEMORY 
and halt (PC=00047) . 

6.1.2 Timing Errors - At the first occurrence of an error, the following heading is 

printed; 

EXTENDED MEMORY ISZ TEST 
LOCATION CONTENTS 

The data are printed in their respective columns. For each error, the 
LOCATION of the register in error is printed, followed by the actual 
CONTENTS of the register. In every case, the correct contents should , 
of ccxjrie, be 000000. If SW 1 is set to 0, the program halts after the 

printout (PC-00263). 

6. 1 .3 Skip Failure - If the ISZ instruction fails to skip after incrementing the 
addressed register to 000000, the following message is printed: 

SKIP FAILED 

If the data ora olso in error, these will be printed before the program halts 

(PC-00263) . 

6.1.4 Extraneous Errors - If a program interrupt occurs from any device other than the 
KSR33 keyboord”, the program halts at PC=00030, with the I/O status displayed 

in the AC. 

6 . 2 Error Racovery 

a. Psoce the number of additional 4K banks in SW 15-17, and press CONT. 

b. press CONT. See Section 5.2 for various operating options. 

c. Disable the externa! device causing the interrupt, then press CONT. 
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6.3 

Summary 



C(PC) 

C(AC) 


00030 

I/O status 


00047 

000000 


00263 777777 


00263 777777 


Message or Data Printed 

None 

A device other than the KSR33 keyboard 
caused a program interrupt. Recovery: 
disable the offending device, and press 
CO NT. 

NOT ENOUGH MEMORY 

Switches 15-17 are all set to 0. Recovery: 
Set these switches to the number of ad- 
ditional 4K memory banks attached, and 
press CO NT. 

Location and contents of register. The 
contents of the addressed register were 
not successfully incremented to 000000. 
Bits appearing as 1 indicate failure of the 
carry chain. Recovery: Set the control 
switches as desired, and press CONT. 

SKIP FAILED 

The ISZ instruction failed to skip when 
the addressed register was incremented 
to OOOOOO. If the register data were 
also printed, the skip probably function- 
ed properly; if no data were printed 
(indicating that the incrementing was 
successful), then the fault is in the skip 
itself. Recovery: Set the control switches 
as desired and press CONT. 


7. RESTRICTIONS 


The program will not operate in a machine with less thart 8192 words of memory. 
8. MISCELLANEOUS 

8.1 Execution Time 


0.125 X n second for one complete pass through (4n)K of memory. 
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1 

ENTI 

EMT I 







.title 

EmTI 





. ABS 





/ 

/COPYR I GH 

T 1970. digital equipment CORP., 



/maynaRo. 

MASS . 




/E 

:^lENOED 

memory address Timing test using is? 

00001 


/ 

.LOC 1 



00001 

600001 


JMP 

. 


00002 

777777 


LAW 

“i 


0000:^ 

777777 


LAW 

-1 


00004 

777777 


LAW 

-1 


00010 



.LOC 10 


/autoindex registers 

00010 

000000 

AXP 

0 


/TEXT STRING 

00011 

000000 

AXT 

0 


/TAB COUNT 

00012 

000000 

AX3 

0 


/spare 

00021 


/ 

.LOC 2l 


/CAL CATCHER 

00021 

740040 


HLT 



00022 

620020 


JMP* 

/ 

20 





/keyboard handler 
/ 


00023 

750001 

KHAN 

CLC 



00024 

040554 


DAC 

#KSIG 

/SET keyboard 

00025 

600030 


JMP 

/ 

spex 





f 

/SPURIOUS interrupt 
/ 


00026 

700314 

SPIN 

f 

lORS 



00027 

740040 


HLT 


/AC CONTAINS I/O STATUS 

00030 

200560 

SPEX 

LAC 

sac 


00031 

703302 


CAE 



00032 

700042 


ION 



00033 

703344 


DBR 



00034 

620000 


JMP* 

0 



.EJECT 


signal 
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/ 

/program starts here 
/ 


00200 



.LOG 200 



00200 

703302 

IBGIN 

CAE 



00201 

200563 


LAC 

(OAC #SAC 


00202 

040001 


OAC 

1 


00203 

200564 


LAC 

(KsE 


00204 

040002 


OAC 

2 


00205 

200565 


LAC 

(JMp SPIN 


00206 

040003 


OAC 

3 


00207 

200566 


LAC 

(JMp KHAN 


00210 

040004 


OAC 

4 


00211 

750004 


LAS 



00212 

500567 


ANO 

(7 

/SWITCHES 15-17 

00213 

740200 


SZA 


/extension attached? 

00214 

600221 


Jmp 

INIT 

/YES. 

00215 

200321 


LAC 

nomad 

/NO. 

00216 

100324 


PRINT 


/GO TELL THE MAN 

00217 

750040 

ENOM 

HLT'CLA 



00220 

6002.00 

/ 

JMP 

IBGIN 




.EJECT 
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EMTI 


EMTI 


/initializing Sequence 
/ 


0 0 2 21 

700042 

INIT 

I ON 


00222 

740001 


CMA 


00223 

040552 


DAC 

#BANkS 

00224 

750000 


CLA 


00225 

300570 


ADD 

( 10000 

00226 

440552 


I SZ 

BANKS 

00227 

600225 


JMP 

.-2 

00230 

040555 


DAC 

#L IMIT 

00231 

750001 


CLC 


00232 

040553 


DAC 

#HSIG 

00233 

040554 


DAC 

KSIG 

00234 

200570 

INIT 2 

Lac 

I 10000 

00235 

040562 


DAC 

#YAP 



/ 

/MAIN test 

sequence 

00236 

707702 

TEST 

EEM 


00237 

750001 


CLC 


00240 

060562 


DAC* 

YAP 

00241 

460562 


isz* 

YAP 

00242 

600312 


JMP 

SKIP 

00243 

220562 

TEY 

LAC* 

YAP 

00244 

741200 


SNA 


00245 

600306 


JMP 

TOK 

00246 

I 40554 


DZM 

KSIG 

00247 

707704 


LEM 


00250 

750004 


LAS 


00251 

742010 


RTL 


00252 

751100 


SPA : CLA 


00253 

600267 


JMP 

TNG 

00254 

540553 


SAD 

hSig 

00255 

600261 


JMP 

TELL 

00256 

140553 


DZM 

HSIG 

00257 

340322 


Tad 

HEAD 

00260 

100324 

/ 

PRINT 


00261 

200562 

TELL 

LAC 

yap 

00262 

100444 


PROCS 


00263 

100415 


TAB 


00264 

220562 


LAC* 

YAP 

00265 

100437 


PROCT 


00266 

100430 


CRLE 



/ 


.EJECT 


/bamk count 

/FOrM limiting ADDrEsS 


/address of highest register 
/SET heading signal 

/PRESET keyboard SIGNAL 

/set Y-adDRESS pointer 


/all is to y 
/this Is IT! 

/SKIP FAILED 
/GET C(Y) 

/C( Y)=0? 

/yes; test ok 

/NO; clear kbd signal 


/SW-2 

/printing? 

/NO . 

/YES. PRINT heading? 
/NO . 

/YES. CLEAR SIGNAL 


/GET address 

/print it 


/PRINT CONTENTS 
/NEXT LINE 
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EMT 1 


/SWITCH TESTERS 
/ 


00267 

750004 

TNG LAS 


00270 

740010 

RAL 


00271 

740500 

SNL ! SMA 


00272 

750041 

El HLTiCLC 


00273 

750004 

LAS 


00274 

750100 

SMA ! CLA 


00275 

600301 

jmp 

XPO 

00276 

200554 

LAC 

KSIG 

00277 

741200 

SNA 


00300 

600236 

JMP 

test 

00301 

44g5562 

/ 

XPO IS2 

yap 

00302 

200555 

Lac 

LIMIT 

00303 

540562 

SAD 

YAP 

00304 

600234 

JMP 

INIT2 

00305 

600236 

JMP 

TEST 

00306 

750004 

TOK LAS 


00307 

751100 

SPA'CLA 


00310 

600236 

JMP 

TEST 

00311 

600301 

JMP 

XPO 


/ 


/SKIP FAILED 
/ 


00312 

750004 

SKIF 

LAS 


00313 

742010 


RTL 


00314 

741100 


SPA 


00315 

600243 


JMP 

TEY 

003l6 

200323 


LAC 

SKAO 

00317 

100324 


PRINT 


00320 

600243 

/ 

JMP 

tey 

00321 

000500 

/ 

nomad 

NOMEM-l 


00322 

000520 

HEAD 

HEAOER-1 


00323 

000512 

SKAO 

SKIM-l 



/ 

.EJECT 


/HERE when There'S an error 

/SWC5 AND SWl 
/SCOPING OR halt? 

/HALT 

/SCOPING? 

/NO. 

/yes 

/IS KBD signal set? 

/NO. Repeat the cycle 

/yes. go on 

/END Of MEMORY? 

/YEs. start AGAIN 
/NO. NEXT CYCLE 

/here when no error 
/SCOPING? 

/YES 

/NO. 


/SW-2 

/PRINTING? 

/NO. 

/YES 



page 


5 EMTI EMTI 


/irxT printer 


00324 

000000 

/ 

PRINT . 

0 

00325 

040010 

DAC 

axp 

00326 

220010 

PRINGO 

LAC* 

0032? 

040550 

DAC 

#ASTEM 

00330 

100354 

CHaR 


00331 

100366 

TESP 


0033? 

100354 

CHAR 


00333 

100366 

TESP 


00334 

100354 

CHaR 


00335 

500571 

AND 

(170 

00336 

040551 

DAC 

#AST3 

00337 

220010 

Lac* 

axp 

00340 

744010 

rcl; 

RTL 

00341 

00342 

742010 

040550 

nAC 

astem 

00343 

740010 

rAL 


00344 

500567 

AND 

(7 

00345 

240551 

XOR 

AST3 

00346 

1003^6 

TESp 


00347 

100354 

char 


00350 

100366 

TESP 


00351 

100354 

CHAR 


00352 

100366 

TESP 


00353 

600326 

JMP 

PRINGO 



/ 

.EJECT 



/ADDRESS OF TEXT STRING 

/FIRST Pair-word 

/POSITION first CHaRaCTER 

/. . .SECOND. . . 

/...PUT THE third TOGETHER 

/SECOND Pair-word 

/ADJUST 

/3rD char LOw-OrDEr BITS 
/assemble TrE parts 
/. . .fourth. . . 

/. . . AND FIFTH 
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EMTI 


EMTI 


/TEXT PRINTER SUBROUTINES 
/ 

/I. POSITION character 

/ 


00354 

000000 

CHAR. 0 



00355 

200550 

LAC 

ASTEM 


00356 

744010 

RCL 



00357 

742010 

RTL; 

RTL; RTL 


00360 

742010 




00361 

742010 




00362 

040550 

DAC 

ASTEm 

/next ChAR. now LEf^T-jUSTiFi 

00363 

740010 

RAL 


/LAST bit in place 

00364 

500572 

AND 

(177 

/ISOLATE 7 BITS 

00365 

620354 

JMP* 

CHAR. 




/2. test 

and print character 


00366 

000000 

/ 

TESP. 0 



00367 

741200 

SNA 


/0 character? (ASCII EILLER) 

00370 

620366 

JMP« 

TESP. 

/YES. IGNORE IT. 

00371 

540572 

SAD 

(177 

/TERMINATOR? 

00372 

620324 

JMP* 

PRINT. 

/YES. GO away 

00373 

240573 

XOR 

(200 

/NO. FINISH THE ASCII-CODE 

00374 

540574 

SAD 

(211 

/TAB? 

00375 

600402 

JMP 

TETAB 

/YES. 

00376 

100404 

type 


/NO. 

00377 

540575 

SAD 

(212 

/LF? 

00400 

140561 

D2M 

tabct 

/YES. CLEAR TAB 

00401 

620366 

JMP* 

TESP. 


004B2 

100415 

tEtab tab 



00403 

620366 

JMp* 

TESP. 




y 

/3. type 

A character 


00404 

000000 

y 

TYPE. 0 



00405 

700002 

lOE 


/AVOID INTERRUPT 

00406 

700406 

TLS 



00407 

700401 

TSE 



00410 

600407 

JMP 

. -1 


00411 

700402 

TCE 



00412 

700042 

ION 



00413 

440561 

ISh 

TABCT 


00414 

620404 

JMP» 

type. 



/ 

.EJECT 
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emti 


00415 

000000 

/4. tabulator 
/ 

TAB . 0 

00416 

200561 

LaC 

«1abct 

00417 

340576 

tad 

(-12 

00420 

740100 

c;M A 


00421 

600417 

JMP 

.-2 

00422 

040011 

DAC 

axt 

00423 

200577 

LAC 

( 240 

00424 

100404 

TYPE 


00425 

440011 

IS2 

AXT 

00426 

600424 

JMP 

. -2 

00427 

620415 

JMP* 

/ 

/5. CARRIAGE 
/ 

CRLF. 0 

tab. 

00430 

000000 

return 

00431 

200600 

LAC 

(215 

00432 

100404 

Type 


00433 

200575 

LAC 

(212 

00434 

100404 

Type 


00435 

140561 

D2M 

tabct 

00436 

620430 

JMP* 

y 

CRLF. 


100324 

100354 

100366 

100404 

100415 

100430 

PRINTsJMS print. 
CHARsJMS char. 

tesp=jms tesp. 
type=jms Type. 
TABsJMS Tab. 
CRLF=JMS CRLF. 

/ 

.EJECT 



/COUNT OF spaces 

/reduce modulo 10 
/negative yet? 

/NO. 

/YES. STORE space COUNT 
/(SPACE ) 

/DONE? 

/NO. 

/YES 

line feed 
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EMTI 


/octal print subroutine 


/ 

/entry to print leading Zeros 
/ 


00437 

000000 

PROCT . 

0 


00440 

0405*^7 

DAC 

#OCTEM 


00441 

200466 

LAC 

OPS + 3 

/NOP 

00442 

100451 

JMS 

OPl 


00443 

620437 

JMP* 

/ 

/entry 

/ 

PROCS . 

PROCT. 

TO Replace leading 

ZEROS with spaces 

00444 

000000 

0 


00445 

040557 

DAC 

OCTEM 


00446 

200601 

LAC 

(SZA 


00447 

100451 

JMS 

OPl 


004 50 

620444 

JMP* 

/ 

PROCS. 



/printer 

/ 


00451 

000000 

OPl 0 



00452 

040463 

DAC 

OPS 

/SET SWITCH 

00453 

777772 

LAW 

-6 


00454 

040556 

DAC 

#OCCT 

/DIGIT COUNTER 

00455 

200557 

OPGO LAC 

OCTEM 


00456 

744010 

RCL; 

RTL 


00457 

742010 




00460 

040557 

DAC 

#OCTEM 


00461 

740010 

RAL 



00462 

500567 

AND 

(7 


00463 

740040 

OPS XX 


/SZA OR NOP 

00464 

600472 

JMP 

OPT 


00465 

440556 

ISZ 

OCCT 

/LEADING ZERO. COUNT DIGITS 

00466 

740000 

NOP 



00467 

200577 

LAC 

(240 

/TYPE A SPACE 

00470 

100404 

TYPE 



00471 

600455 

JMP 

/ 

OPT XOR 

OPGO 


0047? 

240602 

(260 

/ASCII MAKER 

00473 

100404 

TYPE 



00474 

200466 

lac 

OPS + 3 

/replace SZA wiTh nop 

00475 

040463 

DAC 

Ops 


00476 

440556 

IS? 

OCCT 


00477 

600455 

JMP 

OPGO 


00500 

620451 

JMP* 

/ 

PROCSrJMS PROCS, 

OPl 



100444 




100437 

PR0CT=JMS PROCT, 




/ 


.EJECT 
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EHT I 


P50501 06425I 

00502 647650 

00503 202131 

00504 647652 

00505 436204 

00506 046612 

00507 466372 

00510 254432 

00511 053760 

00512 000000 

00513 516271 

00514 150100 

00515 432031 

00516 146212 

00517 420321 

00520 277400 

00521 06^250 

00522 554250 

00523 426350 

00524 442610 

00525 202330 

00526 546636 

00527 512624 

00530 044646 

00531 551012 

00532 442646 

00533 521341 

00534 505024 

00535 462370 

00536 340650 

00537 446371 

00540 604606 

00541 476352 

00542 442634 

00543 522461 

00544 505024 

00545 774000 

00546 000000 

00547 000603 
000000 

00563 

00564 

00565 

00566 

00567 

00570 

00571 
0057? 

00573 

00574 


/messages 

/ 

nomem .ascii 


/ 

SKIM .ASCII 


/ 

HEADER 


.ASCII 


/ 

.SIE 

.END 

040560 *L 
700301 *L 
600026 *L 
600023 *L 
000007 *L 
010000 *L 
000170 *L 
000177 *L 
000200 *L 
000211 *L 


<1c5><1?>'NOT enough memory ' <15><12><177> 


•SKIP rAlLED‘<l5><12><l77> 


.ASCII <l5><12 > 'extended MEMORY IS2 TEST . ' <l5><12><12> 


•L0CATi0N’<11>'C0NTEnTS*<15><12><12><177> 



PI0575 

000212 

*L 

00576 

777766 

«L 

00577 

000240 


00600 

000215 

*L 

00601 

740200 

•L 

00602 

000260 
SIifE = 00603 

*L 


NO error lines 
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aSTEM 

00550 

AST3 

00551 

AXP 

00010 

AXT 

00011 

AX3 

00012 

RANKS 

00552 

GHAR 

100354 

CHAR . 

00354 

CLOF 

700004 

clon 

700044 

ClSF 

700001 

CRLF 

100430 

CRLF. 

00430 

FEM 

707702 

FNOM 

00217 

FI 

00272 

HEAD 

00322 

header 

00521 

HSIG 

00553 

IBGIN 

00200 

TNIT 

00221 

TNIT2 

00234 

KHAN 

00023 

krb 

700312 

KSF 

700301 

KSIG 

00554 

LEM 

707704 

LIMIT 

00555 

NOMAD 

00321 

NOMEM 

00501 

OCCT 

00556 

OCTEM 

00557 

OPGO 

00455 

OPS 

00463 

OPT 

00472 

OPl 

00451 

Per 

700202 

PRINGO 

00326 

PRINT 

100324 

PRINT. 

00324 

PROCS 

100444 

PROCS. 

00444 

PROCT 

100437 

PROCT . 

00437 

PSA 

70^^204 

PSP 

700244 

PSF 

700201 

RCF 

700102 

RRR 

700112 

RSA 

700104 

RSB 

700144 

RSF 

700101 

SAC 

00560 

skad 

00323 

SK IF 

00312 
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SKIM 00513 
SPEX 00030 
SPIN 00026 
TAR 1004 j. 5 
TARCT 00561 
TAR. 00415 
TCP 700402 

tell 00261 

TESP 100366 
TESP. 00366 
TEST 00236 
TETAB 00402 
TEY 00243 
TLS 700406 
TNG 00267 
TOK 00306 
TSF 700401 
TYPE 100404 
TYPE. 00404 
XPO 00301 
YAP 00562 
.EOT 00000 
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EMTI 


.EOT 

00000 

AXP 

00010 

AXT 

00011 

AX3 

00012 

kHAn 

00023 

SPIN 

00026 

SPEX 

00030 

IBGIN 

00200 

ENOM 

00217 

INIT 

00221 

INIT2 

00234 

TEST 

00236 

TEY 

00243 

TELL 

00261 

TNG 

00267 

El 

00272 

XPO 

00301 

TOK 

00306 

SKIP 

00312 

NOMAD 

00321 

HEAD 

00322 

skao 

00323 

print. 

00324 

PRINGO 

00326 

CHAR. 

00354 

TESP. 

00366 

tetab 

00402 

TYPE. 

00404 

TAB . 

00415 

crlf. 

00430 

PROCT . 

00437 

PROCS. 

00444 

OPl 

00451 

OPGO 

00455 

OPS 

00463 

OPT 

00472 

NOMEM 

00501 

SKIM 

00513 

header 

00521 

ASTEM 

00550 

AST3 

00551 

BANKS 

00552 

HSIG 

00553 

KSIG 

00554 

limit 

00555 

OCCT 

00556 

OCTEM 

00557 

SAC 

00560 

tabct 

00561 

YAP 

00562 

PRINT 

100324 

CHAR 

100354 

TESP 

100366 

TYPE 

100404 

TAR 

100415 



EMTI 


EMT I 
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GRIP 100430 
PROCT 100437 
PROGS 100444 
GLSF 700001 
GLOP 700004 
GLON 700044 
RSP 700101 
RCP 700102 
RSA 700104 
RRR 700112 
RSR 700144 
PSP 700201 
PCP 700202 
PSA 700204 
PSB 700244 
KSP 700301 
KRP 700312 
TSP 700401 
TCP 700402 
TLS 700406 
EEM 707702 
LEM 707704 



